home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1998 July
/
EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso
/
earcd
/
utils
/
sysinspector
/
install
< prev
next >
Wrap
Text File
|
1998-02-12
|
4KB
|
194 lines
; SI Installer Script
; $Ver: v1.4 (08-Feb-98)
; Written by Phil Vedovatti
(set @default-dest "Sys:Utilities")
(set #bad-kick
(cat "\n\nSorry! You must have Workbench 3.0 or"
"\nhigher to to use this package."
"\n\nAborting Installation!"))
(set #no-classact
(cat "\nHmmm! You don't seem to have the ClassAct 2.0"
"\nGUI system installed. You can obtain the"
"\nlatest ClassAct classes via ftp on the"
"\nInternet at: \n\n ftp.thule.no/pub/classact/"
"\n\nDo you wish to continue installation?"))
(set #Help-ContInstall
(cat "\nThis package requires ClassAct 2.0, which does not"
"\nappear to be installed on your system. Select"
"\n'Continue' to intall the program anyway, or select"
"\n'Abort' to end the installation."))
(set #hello-message
(cat "Welcome to the SysInspector Installation Utility."
"\n\nThis product is © 1997 by Eric Sauvageau."
"\n\nPlease support Amiga shareware authors with your contribution."))
(set #SI-dest
(cat "Where would you like SysInspector program to be"
"\ninstalled? A directory will NOT be created during"
"\nthe installation."))
(set #AR-dest
(cat "Where do you want to copy the ARexx scripts?"
"\nThe default directory is REXX:."))
(set #DC-dest
(cat "Where would you like SysInspector documentation to be"
"\ninstalled? The default directory is Help:. You may"
"\nselect a different destination if you wish."))
(set #BL-dest
(cat "Where would you like the boards.library to be"
"\ninstalled? The default directory is LIBS:, which"
"\nshould be appropriate for most users."))
(set #EC-dest
(cat "Where would you like the Explorer program installed?"
"\nDefault is your C: directory, but you can place it"
"\nanywhere in your command path if you wish."))
(set #Install-Complete
(cat "\n\nPlease read the documentation carefully to get"
"\nthe most out of SysInspector. SysInspector is a"
"\npowerful and useful tool, but be sure you know"
"\nhow to use it to prevent loss of data."))
(set #wrongversion
(cat "You have an old version of the program 'Installer' "
"on your Amiga!\n\nThe installation procedure needs at least Installer 42.9.\n\n"
"Please check your configuration!"
))
(welcome #hello-message)
; ------------------------------
; Check Installer & Kickstart Version
; ------------------------------
(if (< @installer-version 2752521)
(
(message #wrongversion)
(exit (quiet))
)
)
(if (< (getversion) (* 39 65536))
(abort #bad-kick)
)
; ------------------------------
; Check if ClassAct 2.0 installed
; ------------------------------
(if (< (getversion "libs:window.class") (* 42 65536))
(set ContInstall
(askbool
(prompt #no-classact)
(help #Help-ContInstall)
(default 0)
(choices "Continue Installation" "Abort Installation")
)
)
)
(if (= ContInstall 1)
(abort "\nInstallation Aborted!")
)
; ------------------------------
; Get destinations
; ------------------------------
(set destdir-SI
(askdir
(prompt #SI-dest)
(help @askdir-help)
(default "Sys:Utilities")
)
)
(set destdir-DC
(askdir
(prompt #DC-dest)
(help @askdir-help)
(default "Help:")
)
)
(set destdir-BL
(askdir
(prompt #BL-dest)
(help @askdir-help)
(default "Libs:")
)
)
(set destdir-AR
(askdir
(prompt #AR-dest)
(help @askdir-help)
(default "REXX:")
)
)
(set destdir-EC
(askdir
(prompt #EC-dest)
(help @askdir-help)
(default "C:")
)
)
; ------------------------------
; Installation
; ------------------------------
(copyfiles
(source "SysInspector")
(dest destdir-SI)
(infos)
)
(copyfiles
(source "ARexx/")
(dest destdir-AR)
(infos)
(all)
)
(copyfiles
(source "SysInspector.guide")
(dest destdir-DC)
(infos)
)
(copylib
(source "libs/boards.library")
(dest destdir-BL)
)
(copyfiles
(source "c/Explorer")
(dest destdir-EC)
)
(copyfiles
(source "s/explorer.config")
(dest "S:")
)
; ------------------------------
; Finishing up
; ------------------------------
; (run "run >NIL: sys:utilities/multiview CHANGES")
(message #Install-Complete)
(exit)